#!/usr/bin/perl
use strict;
use warnings;

my $GIT_CONFIG = {
                'color_ui' => 'auto',
                'core_bare' => 'true',
                'core_filemode' => 'true',
                'core_repositoryformatversion' => '0',
                'hooks_emailprefix' => '[REPO_BRCM]/',
                'hooks_mailinglist' => 'keerock@broadcom.com',
                'remote_origin.url' => '/projects/mobcom_andrgit/scm/git_repos/repo_scratch/testrepo2/',
                'reviewboard_url' => 'http://rb.sj.broadcom.com',
                'user_email' => 'usman.khan@broadcom.com',
                'user_name' => 'usman khan'
              };
my $this_repo_uri = $GIT_CONFIG->{'remote_origin.url'};
$this_repo_uri = $1 if($this_repo_uri=~/(.*)\/$/);
my $new_url = $this_repo_uri . '.git';
$new_url =~ s#/projects/mobcom_andrgit/scm/git_repos/##;
print "http://mobcom-git.sj.broadcom.com/cgit/git_repos/$new_url/commit/?h=\n";